perm filename LOSS.1[TIM,LSP]8 blob sn#702192 filedate 1983-02-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(fasload metaux)
C00010 ENDMK
CāŠ—;
(fasload metaux)
(load "meter.lsp")

(meter:begin baz)

(meter-funs ((+ "+'s")(= "='s"))
	    (defun baz (n)
		   (do ((n n (1- n))
			(a 0))
		       ((= n 0) a)
		       (foo n)
		       (setq a (+ a n)))) )

(meter-funs ((+ "+'s")(= "='s"))
	    (defun foo (n)
		   (do ((n n (1- n))
			(a 0))
		       ((= n 0) a)
		       (setq a (+ a n)))))


(meter:end)

(meter:report)
Statistics
= <calls> (<percentage>) [runtime (<percentage>)]
Meter for: BAZ
='s = 11 (52.38%) [4.0E-3 (44.44%)]
+'s = 10 (47.62%) [5.0E-3 (55.56%)]
Total = 21	9.0E-3
Meter for: FOO
='s = 65 (54.17%) [0.021 (50.0%)]
+'s = 55 (45.83%) [0.021 (50.0%)]
Total = 120	0.042
T 

(BAZ 10)
(METER:REPORT)
Statistics
= <calls> (<percentage>) [runtime (<percentage>)]

Meter for: BAZ
1 = 11 (52.38%) [1.0E-3 (50.0%)]
2 = 10 (47.62%) [1.0E-3 (50.0%)]
Total = 21	2.0E-3

Meter for: FOO
1 = 65 (54.17%) [0.023 (47.92%)]
2 = 55 (45.83%) [0.025 (52.08%)]
Total = 120	0.048
T